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TINE FOR MPG 
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;FILENAME OF “TDJABO.MPG" ON MPG/XXDP MEDIA 


DTDJA?/CRE : SYM/DOC=DTDJA”.P 11 


- MPG/B: O-DTDJA E 


DTDJA? 


OTDJA” 
;PAPER TAPE: PUNCH DTDJA?.MPG/FILE:ELEV 


siNKX11: 


;MACY11: 


‘B.D: Oued: 


177776 


;DEVICE ROUT SIZE IN BYTES 


;DEVICE ROUT FLAGWORD 


DVRENOD-. 
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; THE FOLLOWING TABLE IS IN THE STANDARDIZED FORMAT REQUIRED 


;TO INTERFACE WITH MPG. 


. WORD 
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STANDARD DEVICE ROUTINE 


047803 047125 051524 
37e 000 
OSO1eS OS4114 


Hit, 39o00 
ie ZEDUPLX/ 
RYT I SebURL x/ 
-BYTE 370,0 
DVMVTE: B8 aay [ittee :MODEL VECTOR TABLE EXTEN. 
*LWAIT=L 
Be es LCOUNT-LOC 
: IL 1-t9¢2 
-WORD 370,LHOPLX-LOC2 
COMPILER TABLE EXTENSION 
OVCPTE: .BYTE 3,376 ;CONTROL RESET 
“WORD 4637.10. 
“BY 3,375 :NO WAIT 
ERD 4837 10. 
“BYTE 3,374 : WAIT 
“WORD 7,10. 
‘BYTE 4.373 : STATUS 
“WORD 4537.10. ,1002 
"BYTE 4,372 ; COUNTS 
“WORD 4$37,10.,1001 
“BYTE 3,371 ;FULL DUPLEX 
“WORD 4637.10. 
"BYTE 3.370 sHALF DUPLEX 
WORD 4837.10. 
DEVICE INTERFACE WORD SYMBOL TABLE 
OvIWST: .WORD 177777 
MODEL STATEMENT TABLE EXTENSION 
LORS?: 
LNWAIT: 
LWAIT: 
LSTATS: 
LCOUNT: 
LFDPLX: 
LHDPLX: .BYTE 0 
HSKPST= . 
Igtat= ‘gg :STORAGE FOR DEV REG’S AT INT 
T “WORD «OO 
BCR “WORD 
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1 DEVICE ROUT 
DEVICE ROUTINE 


TBUF : 
CSTAT: 
BYRD: 


5 


BLK 


§ 5538583 aan 


Oo B2MNO000N0N DBOCOOO000 wi oO 


A MPG MACY11 27(732) 24-SEP-76 14:08 PAGE 3-3 


;DEV REG CURRENT VALUE STORAGE 
;BYTES READ COUNT 

;BYTES WRITTEN COUNT 

. C 

SRR Te Cano COUNT 


;BREAK CMND COUNT 
;MISC. CMND COUNT (CRESET, 


x) 
AERO IATERRUPT Co NT 
VERRUN ERRORS COUNT 
COUNT 


; ERROR COUNT 
;8 OF ENTRIES INTO T/0 ERROR ROUT 
;FLAGWORD STORAGE 


; VALUE TO BE TAILORED BY DEV ROUT 


; SYSTEM FLGWO BIT DEF. 
SINT SRVC_VIRT tw BASE 
iMTPS INST LEGAL FLAG 


ete ee ee 
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Pll DJ11 FUNCTION ROUTINES 
.SBTTL OJ11 FUNCTION ROUTINES | 
s TIMEOUT ERROR HANDLER | 
000520’ 005267 177770 TOUTER: INC TOECNT sINCR TIME OUT ERROR COUNT 
000524’ 0267e7 177764 000010 CMP TOECNT, #8. “EXCEEDED 8 TIMEOUTS? 
000S32’ 001401 EQ “YES - aL INUE 
000534 RTS *NO - 
000535" ? 2s: 13k RO, fe : STE 
, ? y PC’ SUPTAD : TO 
000546’ 042713 000010 BIC suT4IOT, (R3) ‘RESET WAIT FOR 1/0 TERM 
0005S?" pooon CLR RY 
000555’ 7? 003736 TSR RS, PRINT ;PRINT TIMEOUT ERR MSG 
QU0S50; dondet .WORD TOEMSG-. 
, “WORD 19. x 
pak OONSE? oooo4e JSR RS KIL ;KILL “HE PROGRAM 
* 094767 003152 JSR PC’ ERDIRG :DISPLAY STATUS & STMNT 8 
000574’ 004067 003402 JSR RO; RESREG :RESTIRE REGISTERS 
000600" 012605 TOUTEX: MOV (SP)+.RS :GO CISPLAY DEVICE REGS 
000602’ 000177 177242 JMP aCUPGER 
000606’ O4S104 03041 OS2040 TOEMSG: .ASCII ’DJ11 TIMEOUT ON 1/0’ 
000614" 046511 047505 052125 
000622’ 047440 O20116 de7Si1 
000630’ 117 
000632’ EVEN | 
;KILL USER PROGRAM ROUTINE | 
000632’ 016 771 KILL: MOV ,Re :GET REG ADR 
000636’ AaB oo0004 BIT Ops 00 a tR2) “ANY INT EBLS SET ? 
000644" 001426 BEQ KILLEX :NO-EXIT 
000646’ O04S67 003760 1S: JSR RS, TRVECT :TEST READ INT VECTOR 
OO0Se' 000410 BR CMRINT BRANCH IF NOT ME 
’ 042762 000100 o00004 IC 8100, 4(R2) *RESET RD INT EBL 
000662’ 042767 Oe0000 177li2 BIC Y * RESET BSY IN FLAG WD 
000670’ 004767 002350 JSR PC, RRINTV *RESET INT VECTOR INFO 
000674" 7 003762 CWRINT: JSR RS THVECT *TEST WRITE INT VECTOR 
, 10 BR KILLEX “BRANCH IF NOT ME 
000702’ 042762 O40000 oj0004 IC 840000, 4(R2) sRESET WR INT EBL 
000710’ 042767 O40000 177064 BIC SWRBSY.F *RESET WRITE BSY IN FLAG WO 
000716’ 004767 002340 JSR PC. RWIATV RESET INT VECTOR INF 
000722’ 00S067 177074 KILLEX: CLR ERR :CLEAR ERROR INDICATOR 
000726’ RTS RS : RETURN 
READ COMMAND HANDLER | 
000730’ 010567 003126 READ: MOV RS, STMNT i5A RS 
000734’ 162767 000004 003120 SUB #4’ STMNT FOR STHNT & REFERENCE 
000742’ 016704 177056 MOV GAD, : G 
000746’ 032767 O20000 177026 BIT SROBSY ; FLAGWD : TEST READ BUSY | 
000754’ O01 BNE GTPTBS : H IF SET | 
000756’ 14 000100 BI #100, (R4) :TEST RECV INT EBL 
000762’ 001493 BEQ SROBSY :CONTINUE IF NOT SET 
000764’ COW 7 177056 JSR RS. ICIOBSY ‘OTHERWISE RELEASE CONTROL | 
600770’ 000757 BR READ 


| MAINDEC- i1-DTDIA -B DJ11 DEVICE ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:08 PAGE 4-1 SEQ 0008 
, OTD AB.P DJ11 FUNCTION ROUTINES 
307 000772’ 020000 177QU2 SRDBSY: BIS #ROBSY , FLAGWOD 
308 901000; 016767 1770ee 00001¢ MOV IVCTAD, 10S PAT SEOTOReR ADR To CALL 
13 Boipie: I re Hoy RUSRD, 68 : BU SQ. BUG, PRIORI TY 
311 001020’ 00000 10$:  .WORD XXKX 
312 001022’ OO0000 20: -WORD  XXXX 
a1 IRE: BRL? res age Han eau ERR cr 
ate ot , 14 boat S #100, (RY) iS eet Rety TNT EBL 
316 001036’ 004767 003156 GTPTBS: JSR PC, SUPTAD 
317 Oo10He? OoSve? 176/54 CLR ERR CLEAR ERROR Iroicaton 
318 Spt Res haaeds ooo002 AY , POPSW(R3) fie RT BIT PH desu 
320 001060’ 001403 BEQ ROMNCL 
321 001062’ 052714 o00004 BIS 84, (R4) ;SET CSR BIT TO SAME STATE 
322 001065’ OO0402 ROMNST 
323 001070’ 042714 O00004 ROMNCL: BIC #4, (RY) 
3c folove’ OiSeey 01232 ruta -Se irs guiermpae 
326 robes pt SeeS 001230 MOV (Reds BYTES ;BYTE COUNT 
Se Bt: Gare Be cere P aareae iar 
wh ’ . 
358 cobbes 116301 000035 MOVB URDV(R3) ,R1 :GET CURAENT DEV NOE 
330 001116’ 012700 000001 MOV ,RO 
331 001122" 105701 TSTB. RR 
335 Dolise’ peeane CALOML: BSE ORO 
334 001130’ 005301 DEC R1 
3% OOLLM" Gaooes 000004 TESTRC: BIT pat RED LINE IN USE ” 
337 OBL sg” 1405 Beg L ci - Kice OFF TH 13 
338 O001142* 004577 176700 JSR RS, aCIOBSY 
339 001146 162705 000006 SUB #6 
340 001152’ OO0666 BR READ 
341 001154" 050067 001162 LOADRC: BIS RO,RCR :SET LINE NBRS IN RCR 
3453 DOLiES’ Oee7oe AbD RROVTBL-. 2 
t6 4 Me. 
Bot tee ear heres MOV #16. ,R1 
345 001172’ 006000 FRCVTL: ROR RO sFILL RECEIVE TABLE 
0 mae MSE 001132 eoy Ore Mh; WITH Ss 
348 Oolene* levee O01130 MOV BviE gi thas BNO BYTE. COUNT 
349 001206’ 005301 DEC 
350 001210’ 001370 BNE FRCVTL 
351 O0l212’ 000407 BR SETRSE 
352 001214’ 062702 O00004 DRCVTL: ADD #4,Re 
353 001220’ 005301 DEC 
Bi UN 
01204’ 000010 oo0000 I BlT4IOT, PFLGWD(R3) ;SET WAIT FOR 1/0 TERM 
356 001232’ 052714 000001 SETRSE: BIS (RY) jSeT RECEIVE SCAN ENABLE 
37 001236; 032767 100000 176536 IT 17, FLAGHD TEST DEV T NOWAIT 
353 001246’ 000167 JMP TSTIEB ‘OTHERWISE WAIT 
001252’ 042763 000010 000000 RDNOWT: BIC SW T4IOT, PFLGWD(R3) i CLEAR WAIT FOR 1/0 TERM 
#1 001260’ 000205 RTS RS ‘RETURN INLINE 
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3 ;WRITE AND BREAK COMMAND HANDLER 
001262’ 042767 000010 176512 WRITE: BIC #BRFLG, FLAGWD ;CLEAR BREAK FLAG 
366 001270’ 000403 BR XMIT 
we GBiSte: fredee GMS 76502 GRR GAPE AA flO Sex 
369 001304" 162767 000004 o02S5S0 SUB #4: STMNT :FOR STMNT 8 REFERENCE 
3 es , 7 ACBRRB 176456 Hey *Blacuo ay 
ot ’ . 
338 ree 4 040000 BS COBBRO, (RY) TES EBL 
374 001332’ 001403 BEQ SETBSY CONTINUE. IF NOT SET 
ne nie 176506 ie RS gc loBsy OTHERWISE RELEASE CONTROL 
% t ’ O40000 176432 SETBSY: BIS Y, FLAGHD ;SET WRITE BUSY 
378 001350" 016767 1764S2 900920 HOV IVCTAD, 10$ sIN T wf I BO0R 19 fru 
4 Bt » Peete rere veued MOV 20$ : Pass BUS PAIORITY 
381 001372’ 004S77 176470 JSR RS, aSETVEC :GO SET THE VECTOR 
382 001376’ 000000 10S: -WORD  XXXX 
383 001400’ 000000 20S: “WORD  XXXX 
384 001402" 001044 “WORD  WRINT-. 
385 001404’ 005067 177104 CLR TOECNT can, TINE OUT E OUT ERR CNT 
38 001410" O0S2714 O40000 81S #40000, (R4) iS 
387 001414" 042714 O02000 CLRBRK: BIC #2000, {R4) an BREAK "eee SELECT 
388 001420" O00S067 176276 CLR ‘Cte OR ERROR INDICATOR 
389 001424’ 004767 002570 JSR PC, SUPTAD GET P N R3 
390 001430’ oo00200 oo0002 BIT 8SPOPER, POPSW(R3) :TEST MAINT BIT IN OPSW 
391 001436’ 001403 BEQ WRMNCL 
392 OO01440’ 052714 000004 BIS #4, (RY) ;SET CSR BIT TO SAME STATE 
393 OO1444’ 000402 BR WRMNST 
30 001446’ O¥e714 000004 WRMNCL: BIC #4, (RY) 
395 0014S2’ 012500 WRMNST: MOV (RS)+,RO ;GET ADDRESS 
33 ate pt eees are Oy (Fo)s Ne -3YTE COUNT AND 
398 OO1464’ Bt Sep MOV (Res By BIN con FROM CALL 
399 001466’ 001011 BNE TesTré *BR IF LINE SPECIFIED 
400 001470’ 116301 MOVB  PCURDV(R3),R1 GET CURRENT DEV NBR 
401 001474" O12700 000001 MOV #1,RO 
402 001500’ 105701 TSTB sR 
403 001502’ 901403 BEQ TESTTC 
404 001504’ 006300 DVNMLP: ASL RO 
40S 001506’ 005301 DEC Ri 
406 001510’ 001375 BNE DVNMLP 
407 goisie" 930064 000004 TESTTC: BIT RO. 4(R4) ;ANY DESIRED LINE IN USE ? 
408 001516’ 001405 BEQ LOADTC "NO - KICK OFF THIS WRITE 
409 001520’ 004S77 176322 JSR RS, ACIOBSY YES - WAIT 
410 001524" 162705 000006 SUB #6.RS 
411 001530" BR xMtT 
412 001530" 010067 o00602 LOADTC: MOV RO, STCR :SET LINE NBRS IN SOFT TCR 
413 001536’ 000002 176320 BIT SUSMTPS, ICSYSFW :SAVE PS AND INH INT 
Wie DOLeMe’ T1397 5 nOvB «aSPS,PS ave 
416 ratet 113767 Arag48 OOO Se BISB 20,20 
417 001562’ o4 BR 
418 001564’ 106767 oo0s4e 10$: § MFPS Fono te 
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FSNDTB: 


FSNOTL: 


DSNDTL: 


SETTSE: 


10S: 


ERRTST: 


oa eee 
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MOV PC, Re 
ADD eShOTBL -. , R2 
MOV ib. I 
ROR 
SOY ADR te) 
NOV Bytes, (Re) 
cael 
T 
ADD #4,R2 
DEC R1 
BNE FSNOTL 
18 SWT4IOT, PFLGWD(R3) 
STCR, 4(R4) 
BIT SBRFLG, FLAGWD 
BEQ NCWRC 
S #2000, (R4) 
BIS STCR, 4(R4) 
INC BKCNT 
BR SETSCN 
INC WRCNT 
BIS #400, (RY) 
BIT SUSHTPS, aCSYSFHW 
HOVE PSSAVE, a8PS 
MTPS 
BIT sORWAIT, FLAGWD 
BIC SiT4ZOT, PFLGWD(R2) 
RTS RS 
;WAIT COMMAND HANDLER 
BIC SORWAIT, FLAGWD 
MOV ’ 
BIT 100; (R4) 
BNE 
BIT SCLRVCT , FLAGHD 
J TRVECT 
o$ 
JSR PC, RRINTV 
BIC eCLRVCT, FLAGHD 
BIT SCLUVCT!F 
BEQ ERRTST 
JSR TWVECT 
TST 
JSR C, RWINTV 
BIC aCLWVCT , FLAGHO 
is? =RRFLG 
Ay CERR 
JSR PC; SUPTAD 
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;FILL SEND TABLE 


AND BYTE COUNT 


ASE CONTROL 
CLR REQD 


: F 

: TEST RO CTOR 
GO RESET THE VECTOR 
CLEAR THE LAG 


; Q 
;TEST IF VECTOR CLR REQD 


; OR 
ESET ERROR TNOYCATOR 


se me ee 


SEQ 0016 


eee eae 
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475 002100’ 032763 o20000 00002 BIT #PRONER, POPSW(R3) ‘Bt DONT PRINT ON ERR BIT 
4 BBs178: BABE? oo.uze Inc 6 V aburEVIATED RPT FLC 
479 002116’ BbOte? 001522 JMP ERRRP 
a OS toe rare esi4 Perens: TER ae fcasy OTHERWISE RELEASE CONTROL 
482 BAS 1s8. BBd37 3 : Ba" Pardes : 
Wen sNOWRIT COMMAND HANDLER 
486 002134’ 052767 100000 175640. NOWAIT: BIS BORWAIT, FLAGWD ;SET NOWAIT FLAG 
Wee 002142’ 000705 BR RE TURN 
483 sHALF DUPLEX COMMAND HANDLER 
491 002144’ 016704 175654 HDUPLX: MOV DREGAD, R4 
492 002150’ 052714 o00002 TS #2 (RY) ;SET HOLE DUPLEX BIT 
493 002154" 005267 176316 INC m.SCNi s INCR MISC CMD COUNT 
a 002160’ o0020S RTS RE RET 
435 sFULL DU°LEX COMMAND HANDLER 
493 DOeles’ OderI4 | OObbGe ionic: Sk mi pe CLEAR HALF IT 
500 172’ O50? 176300 NC mISCRT : INCR MIS chD EBUNT 
201 176’ RTS RS *RETUR 
203 ;CRESET COMMAND HANDLER 

’ 016704 CRESET: MOV DREGAD, R4 
at , neath BIS #4. (R4) ;SET MOS CLEAR 
507 002210’ 005267 176262 INC MISCNT :INCR MISC CMD COUNT 
508 002214’ 032714 000010 CLRBSY: BIT #10, (R4) 
509 002220’ 001375 BNE CLRBSY ;WAIT UNTIL DONE 
elt Siete, BRU? reer hie ERR Batok he ttade 
etd BoS550° Bb ab RTS RS : RETUEN 


SEQ O0le 
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ADOR/BYTE CNT 


HRC ED EM ERE ee CH eHRewse ‘fe eeee 


OOOHOWOO09I00000000 


~_7oeo eo eeneeneeneeeneneea « 
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000000 
000000 
o00c00 
000000 
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000000 
000000 
000000 
000000 
000090 
600000 900000 
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| OTOJAB.P11 DJ11 FUNCTION ROUTINES 
;WRITE INTERRUPT HANDLER 





WRINT: JSR RO, SAVREG “SAVE REGISTERS 
JSR Ro, SISTA ‘STORE DEVICE REG CONTENTS 
INC ARcnt sINCR WRITE INTERRUPT COUNT 
PC, SUPTAD ‘SET INTERNAL PTRS 
MOVE  7(R4),RI :GET LI INE NBR FROM TBUF 
MOVB R1,Re : SAVE 
ASL R1 
Rl ;USE AS TABLE INDEX 
MOV PC, R3 
ADD SSADTBL - »R3 sCORNT AT TAL ENTRY 
° ARO 2(R3) T BY f COUNT 
, BEQ WTERM ‘et H IF ZERO 
, MOV PC, R1 
’ ADD #BYWR+2-. ,R1 
; ADD #1, (RL) ;INCR BYTES WRITTEN BY 1 
’ (R3) RO 
’ TSTB) ss (R334 
’ PC, JGETBYT :GET BYTE FROM MEM 
, MOVB RI &(RY) 
, DEC (R3) ;DECREMENT BYTE COUNT 
, INC -(R3) "INCREMENT ADDRESS 
, INTEXT ‘RETURN FROM INTERRUPT 
’ MOV PC,R1 
, ADD sBYWR+2-. ,R1 | 
’ MOV (RL), SIZE ;UPDATE ACTUAL BYTES XFERRED 
, MOV #1,R1 
’ WTRMLP: TSTB 2 | 
76’ BEQ CLRSCN 
002600’ ASL RI :SET BIT AS PER LINE NBR 
002602’ DEC Re 
CLRSCN ene SOnOH CRM) T REGISTER 
posers” SE TOCICTD i RESES Lite er BF 
002616’ BIC #2000, (R4) SELECT T 
002622" BIC RI, 4(R4) -RESET LINE NBR B 
002626’ TST RY) sALL LINES DISABLED ? 
002632’ BEQ OPWR -YES - STOP ALL WRITES 
600 002634’ 000420 BR INTEXT *RETURN FROM INTERRUPT 
601 002636’ 042767 O4O000 175136 STOPWR: BIC SWRESY , FLAGWD *RESET WRITE BUSY 
602 O02644’ 042714 O40400 BIC 0400; (R4) :RESET XMIT SCN & INT EBL 
603 002650’ 004767 001344 JSR Pc, SUPTAD 
604 002654’ 032714 000100 BIT #100, (R4) ; RECEIVE INT STILL UP ? 
605 ’ 001003 BNE GVE sYES - aot 
606 Sdebbe’ Oue7b3 909010 eggnog “ BIC auTaIOr, PFLGHD(R3) WAIT reuse 
aie Bese Se BBSaES ave isa Bie RO RESReG —_ faa: RS | 
693 002702’ 000177 175166 JMP SRtnt NINT : RETURN FROM INTERRUPT 
619 002706’ LNUM:  .WORD . 


~_—— 
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11-DTDJA DJ11 DEVICE ROUTINE FOR MPG 
11 DJL FUNCTION ROUTINES 
03164" 901401 BEQ 
Oos176" o4 3 20000 174604 STOPRO: BIC 
O03176° O4e714 00010) Bl¢ 
; 904767 001012 sf 
Cosel’ Olas 
O03214° (42763 900020 90009 BIC 
o03ee2 O00do2 cOMBER: BIT 
903230" 901000 BNE 
003232” 052767 174542 RERVEC: BIS 
BoaeNG” OGLE? 17NGE “P 
003244" 016767 174556 000004 RRINTV: MOV 
003052’ 004577 1746le JSR 
003256’ 000000 10S: WORD 
003260" 000207 RTS 
003262" 016767 i7¥540 00012 RMINTV: Ov 
* 062767 000004 000004 ADD 
003276 004577 174SES JSR 
003302" 900000 108: 
003304" 000207 ae 
003306° 000000 UNTTNM: WORD 
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TOPRO 
ing x 

sigs oe oe 
PC. SUPTAD 
RY) 


see Sey 


accRvCT, »FLAGWO 


IVCTAD, 10$ 
RS, ACLAVEC 
XXKX 
PC 


IVCTAD, 108 
Ro’ ACERVEC 
XXKX 


PC 
8) 


ey 


& READ INT EBL 
Etgitee 
ES ob oont ERROR CK BIT 
iSET CLR Tho fect REGUEST 


;RESET READ VECT SUBR 


;RESET WRITE VEC’ SUBR 


sUNIT NBR AT LAST REC INT 
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-SBTTL OJ11 SUPPORT ROUTINES 





a ee ee eee ee 


i 
:DEVICE ROUTINE HOUSEKEEPING 
;JSR_ RS,HSKEEP 
: WORD deel Bs Bo HSKP PER OPSW 
: DO HSKP 
*R2 = 
i BesTRDYS Xie 
10° HSKEEP: TST (RS)4 sUUNC TIONALLY DO HSKP? 
Opa318; Boros Be OCS e108 
14° Q3e70e oo0004 IT SHOKPEP, R2 OP SPECIFY EACH PASS HSKP” 
10$: MOV ‘oer UP FIRST WD ADR 
ROY 5, “Wake 
MOV N-HSKPST/2,R1 :SET UP & OF WORDS 
20S: CLR a :HSKP ALL NECESSARY AREAS 
30S: RTS eos EXIT IN-LINE | 
:DJ11 REPORT ROUTINE | 
:JSR_—- RS. REPORT ARC 
; .WORD PCAGHORD 
: BIT 18 = CMNO NODE C 
: Bt i = DO Tete REPORT 
; BIT 0 = 00 S RE 
003344’ 7 000236 REPORT: CLR V CLR ABBRE V TIATED RPT FLAG 
oossen" ec races’ pit & sore CRS) Bisparing Cx CNTs aT ENO OF 
003360’ ta - Brae 
003362" O1 MOV RO :SET UP ADR OF Bee 
003364’ 062700 175074 ADD 88YRO-. ,RO 
oos370" 01701 000016 HOV #14. Ri :GET 8 OF CNT 
, 2s: TST (RO)$ : THIS CNT WORD = 
003376’ 001003 BNE ay N-BS 
003400’ 005301 DEC RI SDECR WORD C 
003402" 001374 BNE :CK’ ED AL WORDS? 
003404’ SO0N7s BR 4 :60 Beene? ALL “EHTS BRE 0°S 
003406’ 004767 000606 8S JSR PC, SUPTAD :SET UP TBL AOR IN R3 
003412’ 012504 MOV (RS)+,R4 GET FLAGWORD 
y. the ooo0ce OY a5 ay DO STATUS DISPLAY” 
SOMSE’ G7spen Cele Toro cetate :G0 STORE STATUS REG'S 
003430’ boave? 000702 10$: JSR re, bl i sDISPLAY CURR UNIT 8 
003434’ 032704 000002 BIT :DIS Dev STATUS? 
’ OC141 EG Biscnr :Y R-pISch 
, 001050 INT : ISSUE “AT INT’ MSG 
902446" 0012 WORD ATIMSG-. 
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, OTOJAB.P11 DJ11 SUPPORT ROUTINES 





An Ash’ au a 
rs pos¥5e" OoNag? 000750 J He QISPST ;GO DISPLAY STATUS AT LAST INT 
03455" | .WORD ISTAT-. 
755 OO I460" ? 001032 JSR RS, PRINT s ISSUE ‘CURRENTLY’ MSG 
73 4’ 001 .WORD OC -. 
* is 000732 JSR aS. SPST GO DISPLAY CURRENT STATUS 
rs ed RasRis ; 
| 2 76” Q 000001 DISCNT: i a1 ,R4 s DISPLAY COUNTS? 
eo ees, By Sf ee ee uae 
| 763 003510" 010701 MOV PC, RI “SET UP ADR OF CNTS 
TBH le’ 174746 ADD -.,R1 
765 , MOV ;SET UP TBL ADR 
766 , 000070 ADD @REPTBL-. Re 
767 003524" Ol2267 000012 RPTLP: MOV (R2)+, RPTBRS sMOV MSG ADR TO S/R LINKAGE 
768 003530’ 004067 O00432 JSR RO, SAVREG :SAVE ALL REG’S 
769 003534’ 011100 MOV (RI). RO -GET CURRENT COUNT 
770 , 174314 JSR RS, ABINASC :CONVERT IT TO ASCII 
aa ’ RPTBAS: .WORD  XXXX 
’ 000432 JSR RO, RESREG ;RESTORE REG’S 
773 003550’ 1 TST (RID+ :POINT AT NXT CNT 
774 ’ DEC Rg : WORDS ? 
775 ’ O01 BNE TLP ?Y N-RPTLP 
776 0039556’ O0%S67 000734 ISR RS, PRINT G0 ISSUE COUNTS MSG 
777 003562’ 001250 .WORD  CNTSMG-. 
778 OSE 000330 “WORD CNTSEN-CNTSHG 
7 : DOvSb? 000724 RPTEND: JSR RS, PRINT ; ISSUE “END OF REPORT” MSG 
781 rine een “WORD -13. 
782 003576’ OO4067 OO0400 DVREX: JSR RO, RESREG sRESTORE REGISTERS 
783 003602’ 005725 TST (RS)+ :SET UP RETURN POINT 
7B 003604’ O00205 RTS RS “EXIT IN-LINE 
76 003606’ oo0000 ABBREV: .WORD 0 
788 
789 003610’ 001 REPTBL: .WORD BCHRD-RPTBAS 
par poses’ pose “Honb H 
1 14° O01 : 
792 003616’ 001334 ; WORD +6-RPTBAS 
ri Ree ela tie RGR iet 
rae Osea’ pOTaiG “HOnd fe 
7% 002606’ 001425 “WORD  CMDCNS-RPTBAS 
797 ’ 001456 ~ WORD RO -RPT 
798 * 001471 - WORD -RPT 
793 ’ 001524 . -RPTBAS 
800 003636’ 001544 “WORD  EPCFRM-RPTBAS 
801 003640’ 001563 “WORD Bas 
802 003642’ O0lble -WORD ERCDTA-RPTBA 


eae a ee —— 
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;D0J12 ERROR REPORT ROUTINE 


003644" 004767 ERRPPT: JSR 1S 
’ 77 reat IMP 

, 1 ERRDIS: HOV Ri ;POINT R1 AT ERR MSG 

, 1 000222 -. Rl 
003662’ 012767 000014 oo00s4 MOV $12. ERMBCT 
003670’ 010700 MOV PC, RO sPOINT RO AT ERR MSG TBL 
003672’ 000144 R00 TB-. ,RO 
003576 10 1S iF B (RO) 

> 001416 Q ERTBEN ;BRANCH IF RO AT TBL END 
003702’ 132067 176436 BITB  (RO)+,ERRFLG ‘TEST FOR PARTICULAR ERR 

» 001003 Bre ‘BRANCH IF FOUND 

10; ooocos 2s 8D ,RO 

003716’ Ole702 coooos MOV 85, Re 
003722’ 112021 4§ MOVB = (RO) +, (RI) + :MOVE MSG CODE TO ERR MSG 
003724" 005267 000014 INC ERNECT ;BUMP BYTE COUNT 
Beayae* DOTS a |O 
003734’ 000760 BR 1$ sCHECK IF MORE 
003736’ OO4S67 O00SS4 ERTBEN: JSR RS, PRINT ‘PRINT ERROR MSG 
003742’ 000122 .WORD EMSGHD-. 
003744" O00014 ERMBCT: WORD le. 
003746’ O04S67 OO04S4 ERDIRG: JSR DISPST sDISPLAY DEVICE REGS 
003752’ 174462 .WORD = IStAT-. 
003754’ 016300 000022 ERRSNM: MOV PSRCST(R3) ,RO ;GET ADOR OF STMNTS 
003760’ 111001 10S mMOVB (RO). RI ; SAVE STMNT LENGTH 
003762’ 026057 o00004 000072 CMP 4 (ROS, STMNT ; ERROR ON THIS STMNT? 
003770’ 001492 BEQ 20S *YES - H 
003772’ 060100 ADD Ri, RO “POINT AT NEXT STATEMENT 
Sarre” Spero ae aaa 

, 20s ST (RO)+ SET UP STMNT # DATA 
004000’ 010701 MOV PC, RI :SET UP DATA OUTPUT ADOR 
Oo4002’ Obe701 000156 ADD SSTMNUM-. RI 
004006 ’ 174050 JSR RS, wECASE RT IT TO ASCII 
Oo40l2’ 012767 Oe0040 000144 MOV 820040, STMNUM+4 ‘co LOW DIGITS 0 SPACES 
004020’ O04S57 000472 JSR RS PRIAT : ISSUE STMNT 8 
004024’ 000124 \WORD § =, 
004026’ 177762 “WORD = =14. 
004030; 905067 176310 CLR ERRFLG ;CLEAR ERROR FLAG 

’ S 
004036’ 020001 OSOO4O 051101 ERCDTB: .ASCII <OD1>/ PAR, sERROR MSG CODE TABLE 
Oo4044" Geo0d2 043040 SASCII «0027 FRM/ 
O040S2’ 020004 O47440 051126 ASCII <004% 7 OVR/ 
a poubee en 

’ EVEN 

00062’ 000000 STMNT: .WORD 0 :SAVED RS FOR STMNT # 
00064" 045104 042440 EMSGHD: .ASCII /DJ11 ERROR: / 
OU4072’ OSli22 051117 Od2007e2 
004100’ O000S0 EMSGBF: .BLKB 40. 
004150’ 052123 047115 020124 STMNMG: .ASCII /STMNT ® / 
004156’ 020043 
CO4160’ 054130 0S''130 OS4130 STMNUM: .ASCII /XXXXXx/ 


BE 


BRIE EROS SE SRR LORY SEERA EDR Baad Znae cee eRe eae 


00.00 
oe 
Wwrr-O 


-SBTTL SUBROUTINES FOR DJ11 DEVICE ROUTINE 
;SAVE REGISTERS RO THRU RS 
;JSR  RO,SAVREG S/R CALL 
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“Pll SUBROUTINES FOR DSTI DEVICE ROGTINE : 
004166" O10146 SAVREG: MOV R1,-(SP) ;SAVE RO THRU RS 
004170" O10246 MOV ” =(SP) 
004172’ O10346 MOV R3,-(SP) 
004174" O10446 MOV RY’ -(SP) 
Soasae” 915008 NOV ‘peo 
’ 01 MOV *PC sEXIT IN-LINE 
RESTORE REGISTERS RL THRU RS 
;JSR RO, RESREG S/R CALL 
povene’ 005726 RESREG: TST (SP)+ sRESTORE R4Y THRU RO 
’ Ol MOV (5P)+,RS 
O04206' 012604 MOV (5P)+°R4 
004210’ 012603 MOV (SP )+°R3 
OO4212’ Ol1e602 MOV (SP)+'Re 
bowels 12601 MOV (5P)4’RI 
216’ RTS RO sEXIT IN-LINE 
:SET PROGRAM’ 3G TABLE ADR IN R3 
;JSR PC, SUPTAD S/R CALL 
004220’ 010703 SUPTAD: MOV PCR ;SET UP LOCATION ZERO ADR | 
004222’ 062703 173556 #L6C2-..R3 
226’ 166303 177776 sec RD RG TRACT PROG TBL LENGTH 
004232’ 016704 173566 MOV ; 'BUT DEV REG ADR 
004236’ 000207 RTS PC :EXIT IN-LINE 


;STORE DEVICE’S STATUS REGISTERS 


;JSR RS, STSTAT S/R CALL 
ST REL STORAGE ADR 
: DESTROYS RO, Ri, R2 


’ 016701 17 STSTAT: MOV 
ae 042711 aed BIC a2000, (RL) sSEL LECT TCR 
004250’ 010500 MOV :GET aft, STORAGE ADR & MAKE 
004252’ 062500 ADD aN Ro ‘I ABSOLUTE 

254" O1e74e oooo0s MOV bE pvREGS “6, -(SP) eet 8 OF REG’ 

260’ O1 MOV Hd RS ‘GET ADR OF 1S REG sa ACEMENT 
004262’ 062702 173640 ADD 8OVREGS+4-. Re 

266’ 011201 10$: MOV (R2). Ri GET REG DISPLACEMENT 

270’ 06670} 173530 ADD DREGAD.R1 N REG <4 BASE 

e74’ Olll MOV (RI). (RO+ ISTE 
004276’ 062702 OO00006 ADD #6, Re ‘BOINT at NXT DISPLACENENT 

302’ O0S316 DEC (SP) :DECR REG 


ree ~ | hia DJ11 DEVICE ROUTINE FOR MPG 
DTDJAB.P SUBROUTINES FOR DJ11 DEVICE ROUTINE 
914 004304’ 001370 oe 
Sig QOsiG" 162750 ongony se 
$17 004314’ ole? . MOV 
$18 004320’ 002000 BIS 
919 O043e4" 016110 900004 MOV 
$20 004330° 042711 002000 BIC 
Sel 004334" RTS 
S2e 
323 
924 
325 
926 
927 
. 
$30 004336’ 012767 000022 O000S6 DISUNN: MOV 
931 OO43S44’ 116300 000035 MOVB 
S32 004350’ Ge00e7 000020 CMP 
933 OO43S4’ 101 BHI 
S34 O043S6’ 173476 JSR 
335 362’ OO0426 . ORD 
$36 OO4364’ 016767 O00424 000416 MOV 
937 OO0437e’ 000410 BR 
938 004374" 012767 000026 000020 DISUIV: MOV 
$39 OO44e’ 042700 177400 BIC 
S40 OO4406’ 004577 173444 JSR 
941 OO4%412’ 000376 . WORD 
S42 004414" 004567 000076 DISUPR: JSR 
S43 OO04420’ 000350 . WORD 
S44 O04422"’ 000020 DISUML: .WORD 
S45 004424’ 000207 RTS 
946 
947 
348 ; TAILOR 
349 
950 
951 
9S2 
953 
954 O04426" 010502 DISPST: MOV 
855 004430’ 062502 AOD 
956 OO4432’ 010701 MOV 
957 OO4434’ 1 173462 ADD 
958 OO4440’ 012700 O0000S MOV 
959 OO4444’ 012167 OO034E 10S: MOV 
$60 OO44S0’ 012167 000344 MOV 
961 OO4454’ 7el TST 
962 OO44S6" 004067 177504 JSR 
963 OO04462’ 011200 MOV 
964 OO04464’ 004577 173366 JSR 
965 004470’ 000334 . WORD 
966 004472’ 004567 000020 JSR 
967 004476’ 000320 WORD 
968 004500’ 000014 WORD 
969 004502’ 004067 177474 


2+ ee eee ee ee ee ee eee Se 
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10$ sDONE ALL? (Y,N-10$) 
(SP)4 ‘CLEAN UP THE’ STACK 
DREGAD, Ri 

82000, {R1) CT BCR 

4CRL), (RO) BCR CONTENTS 


Pi CT TCR 
IN-LINE 


;DISPLAY CURRENT UNIT 8 


;JSR PC. DISUNM S/R CALL 
:R3 MUST CONTAIN BROG TBL ADR 


“DESTROYS RO,R 
#18. DI sINIT TO NORM LNTH 
PLE RANT RS OTRO } Unit 4 
RO, #15. ; VALID tien 8? 
DISuIV N-DISUIV 
RS SB TASLZ ‘CONVERT’ § TODECIMAL ASCII 
UNASCI+4, UNASCT :MOVE ASCII 8 TO 1ST TWO DIGITS 
oe . ,DISUML T UP ERR COND MSG LNTH 
#177400, RO ‘Reoey HIGH BYTE 
RS eB 1NASC :CONVERT BINARY TO ASCII 
RS, PRINT :GO ISSUE UNIT # MSG 
UNE THG-. 
PC” sEXIT INLINE 
STATUS MSG & PRINT IT 
:JSR_ RS, DISPST S/R C 
*WORD  STATADR-. REL OF STATUS DATA 
‘DESTROYS RO,R1, 
RS, Re ;GET REL DATA AOR 
(RS)+,Re :MAKE IT ABS 
PC.RI :SET UP ADR OF REG NAMES IN ASCII 
#OVREGS-. RI 
8DVREGE-DYREGS 6, RO ;GET 8 OF REGISTERS TO DISPLAY 
(R1)+, DVRGMG !MOVE REG NAME TO MSG 
(R1)+, OVRGMG+2 
(R1)¢+ ;BYPASS DISP VALUE 
RO, SAVREG “SAVE REG’S RO - RS 
(RO) RO :GET REG’S STORED VALUE 
RE, SB INASC :CONVERT IT TO ASCII 
PRINT ;PRINT THE STATUS MSG 
DYRGNG- 
RO, RESREG :RESTORE RO - RY 


SEQ 0020 


MAINDEC-11-DTDJA-B DJ11 DEVICE ROUTINE FOR_MPG 
DTDJAB.P1l SUBROUTINES FOR DJ11 DEVICE ROUTINE 
TST 


’ 00S7ee (R2)+ ;POINT AT pa REG VALUE 


a1 - R CR REG 
€7h Soatie> Borses ids iBGRE ALE» “Cy,n-108) 
973 004514" 000205 RTS RS sEXIT IN-LINE 
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| 975 ;ISSUE MSG TO LIST DEVICE 








976 
359 Jer pRaN Bel BOR OF MSG 
| 979 + HORD BYTCNT - Age BYTE CNT (IF NEGATIVE, 
| 980 : RESET PRT DEV DEDICATED. ) 
j 981 Ra = T ADR 
| 982 = FL -- IF NEGATIVE, USE CMND MODE PRINT 
383 i ResTRove RO,R1,R2 
| 885 oO¥  y10S00 PRINT: MOV RS.RO :GET MSG ADR & MAKE IT ABS 
986 004 cv’ 062500 ADD (RS)+,RO 
| 987 OO4%S22’ 012501 MOV (RS)+,R1 ;GET BYTE COUNT 
| 86 Bosese: a. Cds SUSE _GimO RODE PRINT? 
'  @80-«-OO4530" 010702 MOV PC. Re 'stT UP LINK INFO ADR 
! ee ta 232’ ooo040 SB fe - Re MAK AOR REL 
aaeue’ Ot "(Re)+ iSTORE ec. 
| 99 OoNS42’ 010112 MOV R1; (Re) ; STORE ’S BYTE COUNT 
| 8 BBiede Abend eet me Ee posttieey 
, NE (Re) :MAKE IT POSITI 
997 OO4SSO’ 016367 009006 000144 10S: MOV PASCIN(R3) , PROGNM -STORE PROG’S # IN MSG 
998 004556" 004577 17327; ISR RS, ACLIST ‘ISSUE PROG 8 
999 004562’ 000136 ‘ PNMMSG-. 
1000 004564’ 000005 "WORD 5S 
1001 DOvSbS 004577 173262 JSR RS, ACLIST s ISSUE MSG SPECIFIED 
1002 * 900000 20S: -WORD  XXKX 
1003 004574’ Q00000 “WORD  XXXX 
1004 004576’ 004577 173252 JSR RS, ACLIST s ISSUE A <CR> & <LF> 
1005 O0ve0e" 900302 -WORD CRLF. 
oP posete eet BR ERTEX 330 TO EXIT 
1008 04610’ 010067 o00010 40S: MOV ‘ ‘STORE MSG MSG’S ABS ADR 
1009 OO4614’ 010167 000006 MOV R1' 608 :STORE ITS BYTE CNT 
1010 004620" ? JSR RS, SULIST :GO TO MPG TO ISSUE THE MSG 
{O12 BONeSe* DODD BOS; WORD SOX 
1013 004630’ PRTEX: RTS RS sEXIT IN-LINE 
1015 
18 TEST READ INTERRUPT VECTOR S/R 
1018 O04632’ 016767 173170 OOD010 TRVECT: MOV IVCTAD :GET CURR INT VECT AOR 
1019 40’ 01634 O0CO04 MOV prupoRtAGs, -(SP) ‘STORE FLGWOD ADR TO IDENTIFY ME 
1920 44? 77 173222 ISR RS, aTSTVEC. :D0 I HAVE VECTOR CONTROL? 
102 OOMGSe" 17803 a8 *HORD eon. : GET AT LOWER MEN TF MEN MGHT 
1023 004654’ bossat BR TRVEXT ‘rir I obNT have CONTROL 
1024 004656’ 005725 TST (RES4 ‘BYPASS BR INST IN S/R CALL 
ges 004660’ 000205 TRVEXT: RTS RS EXIT IN-LINE 
1087 ;TEST WRITE INTERRUPT VECTOR S/R 
1029 OO04662’ 016767 173140 OO0016 TWVECT: MOV IVCTAD, 208 :GET CURR INT VECT ADR 
1030 004670’ 062767 O00004 O00010 ADD #84, 20$ ‘ADJUST FOR WRITE INT 


en ee iC 


eee Se ae eee ee ee _-—- ee we tees ee ees i ne ee ewe ee - 
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1032 bosPas* bove7? I73ie4 in. TSR Re aTStvEC” oat ‘Bo J HAVE VECTOR CONT RP anil 
1B Bode 16" Meese ; hr WRINT-. ;__ GE ry toueR” Ne ten MGMT 
ie Eri ere 2 a irtec oh et tn OF Ca 

103 716° BoBeoe TWVEXT: i RS RETURN PR-LIne 


spt td 


1046 


bt phe 


B83 


Be et 
b= be he 


ARTA 


fan We 
‘amp WA 


ree 


F 


+ a ee ae eee ee 


ROUTINE FOR MPG 
AREA 

.SBTTL 

.NLIST 

EVEN 

Set 

URNSG: .ASCIT 

: -ASCIT 

me ot 


” TEVEN 
: .ASCII 


4 4 4 4 4 4 4 0 4 0 4 4 oe 
0-4 4 2 1 4 4 4 4 4 4 4 0 4 0 oe | Lame 


- mm 
nm 
“7 2 
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MESSAGE STORAGE AREA 


BEX 


ZEND OF REPORT/ 
/*#**% DJL1 UNIT: 7 
SXXXXXX/ 

/XXXX= / 

AXXXXXX/ 


/BYTES: RD= / 
AXXXXXXXXXXXX WR= / 


/ 
<015><O012> 

CO) 1 nes: RD= / 
AXXXXXX WR= / 

SXXXXXX BRK= / 

/¥XXXXX MISC= 7 | 
AXXXXXX/<015><O1eE> 
<011>/INTERRUPTS: RD= / 


7XXXXXX WR= / 
AXXXXXX/<01S><O12> 
(011>/ERROAS: OVERRUN= / 
7XXXXXX FRAMING= 

“KXXXXK PARITY= 7 
/XXXXXX/«015><O12> 
<«011>/DATA ERRORS = / 
AXXXXXX/ 


BEX 


ee ee 2 = ee = a 


ea ee ee ee 
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i -SBTTL FORMATS FOR PROGRAM 2 DEVICE ROUTINE TABLES 

ti 24 ; PROGRAM TABLE FORMAT 

ts o00e4e PTLGTH= 162. ;PROGRAM TABLE LENGTH - NON MEM MGMNT VERSION OF MPG 
193) ;(PTLGTH= 212. ;PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 

hee oo00c0 PFLGWD= +0. ;PROGRAM FLAG WORD - 1 WORD 

1095 URSTOP= 2 ; 1 = USER HAS STOPPED THIS 

996 000004 ERSTOP= 4 ; 1 = AN HAS THIS PROGRAM 

1097 000010 WT4IOT= 10 ; 1 = WAITING FOR 1/0 TERMI 

1098 000020 CTPRIO= 20 ; 1 = CONSOLE OR PRINTER 1/0 IN PROGRESS 

1039 SETDED= 40 ; 1 = THIS PROG SET i PRT DEV DEDICATED FLAG 
1100 000100 OCPRES= 100 ; 1 = OBJ CODE IS PRE 

1101 = 200 ; 1 = THIS PROG Us? THE UNIBUS MAP (MEM MGMNT ONLY) 
116 100000 ACTIVE= 100000 ; 1 = PROGRAM IS ACTIVE (SPECIFIED FOR EXECUTION) 
iim oo00de POPSW= +2. ;PROGRAM’S OPERATION SWITCHES - 1 WORD 

1106 100000 STONER= 100000 ; 1 = STOP PROG EXECUTION UPON ERROR 

1107 040000 CYCPRG= 40000 ; 1 = CYCLE PROGRAM (ON CURRENT DEVICE) 

1108 020000 = 20000 ; 1 = DO_NOT PRINT ON ERROR 

1109 010000 BITie= 10000 ; QO = NOT USED 

1110 004000 BIT11= 4000 ; O = NOT 

1111 YCOVL= 2000 ; 1 = CYCLE THE DEVICE LIST 

lile 001000 GTNXTD= 1000 ; 1 = CYCLE ON SAME DEVICE UPON ERROR 

1113 RCK= 409 ; 1 = DON’T DO ERROR CHECKING 

1114 = 200 ; 1 = DEVICE SPECIAL OPERATION 

1115 000100 BITé= 100 ; O = NOT USED 

1116 000040 DOIOT= 40 ; 1 = DO NOT PERFORM I/0 TIMEOUT 

1117 000020 TORP= 20 ; 1 = DO_NOT AUTOMATICALLY DISPLAY COUNTS 

1118 000010 = 10 ; 1 = AUTO DISPLAY COUNTS AT END OF FINAL PASS ONLY 
1119 000004 HSKPEP= 4 ; 1 = HOUSEKEEP COUNTS ONLY AT RUN COMMAND 

1120 PFBBOV= 2 ; 1 = PRINT FIRST BAD BYTE ONLY ON VERIFY 

ish 000001 NOCOMP= 1 ; 1 = DO NOT PRINT PROG COMPLETED MSG 

its 000004 PFWADR= +4. ;#;PROGRAM FLAGWORD ADDRESS - 1 WORD 

iis 900006 PASCIN= +6. ;PROGRAM’S NUMBER IN ASCII - 1 WORD 

iis? 000010 PNAME= +8. ;PROGRAM’S NAME IN ASCII - & BYTES 

11s) 000016 PRDIOA= +14. ;ADDRESS OF READ 1/0 AREA - 1 WORD 

ital 000020 PWRIOA= +16. ;ADDRESS OF WRITE 1/0 AREA - 1 WORD 

‘ie 000022 PSRCST= +18. ;SOURCE STATEMENTS START ADDRESS - 1 WORD 

is 000024 POBJST= +20. ;OBJECT CODE START ADMORESS - 1 WORD 

ike 000026 PLNGTH= +22. ;PROG AREA LENGTH (OBJ END MINUS PROG TBL START) - 1 WORD 
i1aA 000030 PTOCNT= +24. 31/0 TIMEOUT COUNT - 1 WORD 
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000032 
000034 
000035 
000036 
O000SE 


DJ11 DEVICE ROUTINE FOR 


PMOLCD= 
PDPNTR= 
PCURDV= 
PDNUMS= 
PTEMU= 
PTEMI= 
PTEN2= 
PTEM3= 
PTEMY= 
PTEMS= 
PTEM6= 
PTEM7= 
PTEM8= 
PTEMS= 
PTEM1O= 
PTEMI1= 
PTEM1e= 
PTEM13= 
PIE™ i4= 
PTEMIS= 
PNBR= 
PSRC= 
PDST= 
PSTKCT= 
PSTKSV= 
PSVREG= 
PUSRPC= 
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+26. ;DEV ROUT MODEL # CODE - 1 WORD 

+28. ;CURRENT DEVICE NUMBER POINTER - 1 BYTE 
+29. ;CURRENT DEVICE # - 1 BYTE 

+30. ;DEVICE NUMBERS - 16 BYTES 

+46. ;USER PROGRAM TEMPORARY STORAGE - 1 

+48. ;USER PROGRAM TEMPORARY STORAGE - 1 

+50. ;USER PROGRAM TEMPORARY STORAGE - 1 

+52. ;USER PROGRAM TEMPORARY STORAGE - 1 

+54. ;USER PROGRAM TEMPORARY STORAGE - 1 

+56. ;USER PROGRAM TEMPORARY STORAGE - 1 

+58. ;USER PROGRGM TEMFORARY STORAGE - 1 

+60. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
+62. ;USER PROGRAM TEMPORARY STORAGE - 1 

+64. ;USER PROGRAM TEMPORARY STORAGE - 1 

+66. ;USER PROGRAM TEMPORARY STORAGE - 1 

+68. ;USER PROGRAM TEMPORARY STORAGE - | 

+70. ;USER PROGRAM TEMPORARY STORAGE - 1 

+72. ;USER PROGRAM TEMPORARY STORAGE - 1 

+74, ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

+76. ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

+78. ;NUMBER OF BYTES TO TRANSFER ON MOVE (NBR) - 1 WORD 
+80. ;DATA SOURCE ADDRESS ON MOVE (SRC) - 1 WORD 

+82. ;DATA DESTINATION ADDRESS ON MOVE (DST) - 1 WORD 
+84. ;# OF WORDS (X 2) SAVED OFF STACK - 1 WORD 

+86. ;STACK WORDS STORAGE AREA - 30 WORDS 

+146.  ;USER’S RO THRU RS REGISTERS STORAGE ARER - & WORDS 
+158. | ;USER’S CURRENT PROGRAM COUNTER - 1 WORD 
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| 1136 FOLLOWING ENTRIES (PRDIOX THRU PUBMAP) ARE ONLY IN MEM MGMNT VERSION | 
1138 ;(PRDIOX= +160. ;18/22 BIT ABSOLUTE ADDRESS OF READ 1/0 AREA - 2 WORDS) 
1eo0 ;(PRDIOV= +164. ;18 BIT VIRTUAL ADDRESS OF READ 1/0 AREA - 2 WORDS) 
2g08 ; (PWRIOX= +168. ;18/22 BIT ABSOLUTE ADDRESS OF WRITE 1/0 AREA - 2 WOR’) 
1e0s ; (PURIOV= 4172. ;18 BIT VIRTUAL ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 
1208 ; (PUPARS= +176. ;STORAGE AREA FOR USER'S PAR’S 0 THRU 7 - 8 WORDS) | 
2208 ;(PUPDRS= +192. ;STORAGE AREA FOR USER'S POR'S 0 THRU 7 - & WORDS) 
igi0 ; (PUBMAP= +208. ;1ST UNIBUS MAP REG ® AND # OF REGS USED - 1 WORD) 
ite SEND OF MEM MGMNT ONLY ENTRIES | 
els o00240 PTSIZE= +160.  ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 
1ei6 ; (PTSIZE= +210. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MGMNT VERSION: | 
igig ooce4e PTEND= +162. ;END OF PROGRAM TABLE - NON MEM MGMNT VERSION 
1220 ;(PTEND= +212. ;END OF PROGRAM TABLE - MEM MGMNT VERSION 
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ORTLTH= 
bevesz= 
DEVF WD= 
DEVIW1= 
DEVIW2= 
DEVIW3= 
DEVIW4= 
DEVIWS= 
DEVIWE= 
DEVIW7= 
DEVIW8= 
DE VDRA= 
DEVIVA= 
DEVRPS= 
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DEVICE ROUTINE TABLE 


78. 


= +46. 


;DEVICE ROUTINE TABLE LENGTH 


;DEVICE ROUTINE SIZE IN BYTES - 1 WORD 
;DEVICE ROUTINE FLAGWORD - 1 WORD 

;DEVICE INTERFACE WORD 8 1 - 1 WORD 
:DEVICE INTERFACE WORD 8 2 - 1 WORD 
;DEVICE INTERFACE WORD 8 3 - 1 WORD 
;DEVICE INTERFACE WORD 8 4 - 1 WORD 
;DEVICE INTERFACE WORD 8 S - i WORD 
;DEVICE INTERFACE WORD 8 & - 1 WORD 
;DEVICE INTERFACE WORD 8 7 - 1 WORD (SIZE) 
;DEVICE INTERFACE WORD 8 8 - 1 WORD (ERR) 
;DEVICE REGISTERS ADDRESS - 1 WORD 

;DEVICE INTERRUPT VECTOR ADORESS - 1 WORD 
;DEVICE READ PROCESSOR STATUS WORD (BUS REQ) - 1 WORD 


;DEVICE WRITE PROC STATUS WORD (BUS REG) - 1 WORD 
;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 
;DEVICE ROUT REPORT ROUT REL ENTRY ADR - 1 WORD 
;DEVICE ROUT KILL ROUTINE REL ENTRY AOR - 1 WORD 
;DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 

;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY ADR - 1 WORD 
;DEVICE 170 BUSY BRANCH ADDRESS (CIOBSY) - 1 WORD 
;DEVICE ERROR BRANCH ADDRESS (CUPGER> - 1 WORD 

;USER MODE PRINT BRANCH ADORESS (ULIST) - 1 WORD 
;CMNO MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 
;CONVERT BINARY TO ASCII BR ADR (BINASC) - 1 WORD 
;CONVERT BINARY TO DECIMAL ASCII BR ADR <BTASLZ) - WORD 


re 


55 


einsiee i 


© ob + 6-2 & b> H-2 p= Pee 


yi eee pail Device Ay the F ae Teele Y1l 27(732) 24-SEP-76 14:08 PAGE 3-4 


000062 OVPOTA= +50. ;CONVERT PACKED DECIMAL TO ASCII BR ADR (DECASC) - | WORD 
000064 DVSFWO= +S2. ;MPG SYSTEM FLAGWORD ADORESS (CSYSFW) - 1 WORD 
000066 OVSVEC= +54. ;SET INTERRUPT VECTOR BR AOR (SETVEC) - 1 WORD 
000070 DVCVEC= +56. ;CLEAR INTERRUPT VECTOR BR ADR (CLRVEC) - 1 WORD 
000072 OVTVEC= +58. ; TEST INTERRUPT VECTOR BR ADR (TSTVEC) - 1 WORD 
000074 DOVRINT= +60. ;RETURN FROM INTERRUPT BR ADR (RTNINT) - 1 WORD 
000076 DVGETB= +62. ;GET DATA BYTE BR ADR (GETBYT) - 1 WORD 
000100 DVPUTB= +64. ;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 
000102 DEVSTP= +66. ;DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 
000104 DEVETP= +68. ;DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 
000106 DVPTEP= +70. ;PACK TABLE EXTEN. REL POINTER - 1 WORD 
000110 DVVTEP= +72. ; VECTOR TABLE EXTEN. REL POINTER - 1 WORD 
000112 DVCTEP= +74. ;COMPILER TBL EXTEN. REL POINTER - 1 WORD 
000114 DVIWSP= +76. ;DEVICE INTERFACE WORD SYMBOL TBL REL POINTER - 1 WORD 
000116 ORTEND= +76. sENO OF DEVICE ROUTINE TABLE 

i END 
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ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


#, DTDJAB/NL: TOC/DOC=DTDJAB.P11 
RUN-TIME: 3.8 1 SECONDS 
RUN-TIME RATIO: 32/13=2.4 
CORE USED: SK (9 PAGES) 


DOCUMENT PAGES: 31 
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